Voorbeeld van de gebeurtenis Click

Het volgende voorbeeld laat zien hoe u met behulp van WithEvents en Set programmacode kunt opstellen voor een gebeurtenisprocedure Click. U ziet dat de objectverwijzing ce wordt gebruikt als naam voor de gebeurtenis Click in plaats van de menunaam Extra.

Private WithEvents ce As CommandBarEvents

Sub Test()
    Dim c As CommandBarControl
    Set c = Application.VBE.CommandBars("Extra").Controls(1)
    Set ce = Application.VBE.Events.CommandBarEvents(c)
End Sub

Private Sub ce_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)
    ' Put event-handling code here
End Sub